1 SCHAT CORDERLIB. TAB) ZME BS BOS FO 166 М Ma. 
2c PROGRAM AWARI 

sc 

4 Û وہ وت‎ OR KC ETE TES 

sc WRITTEN BY К 

6C жо J. 6. SHAW Ж 

РЕ х FOR FAMILY DAY x 

BC "AT L.L.L. 1974 x 

9 6 We Me He ade ale de ale le He 3 
10 С 
ll E 
12 С MALNZELLCHEZDATA 
18 С 
14 CLICHE PIT 
15 С 
16 COMMON “МАМА JPITP (9) 
17 € 
18 COMMON /“CDC’ JPITCCS) 

SC 
20 COMMON 1157ص‎ 29806), IFLAG. LEVEL. ITWO, IBUG 
21 C 
22 EQUIVALENCE СЈРЕТРСЕ),МОМР), CIPITP(9).LIMP). (JPITC(B) .MOVC), 
23 1 CSPITC(S).LINC) 
24 С 
23 ENDCLICHE 
26 USE PIT 
27 С DATA C(LEVEL=2). CIFLAG=B) , CIBUG=B) 
о 

oC ENTRY POINT 

BC 

ЕЕ START OF GAME 

ас 

з С 

46 CHANGE TO RANDOM NAME 


CALL CRN 


ЈА ЈА ЈА ЛА لیا لیا لنا‎ C ٹی لئ لئ‎ GI АЈ تح‎ 


CALL F GIP ETC) 
£ 
с WRITE START MSG 
IF СТРЫЙ р. 6) GO TO 2 
: ЈЕ ЈЕ TO THE GAME OF AWARI-TYPE HELP FOR RULES 


A, JAP) 


ес CLEAR ARRAYS FOR NEW GAME 
8 B DO 1 Ј=1,7 

9 JPITP(J) = 8 

8 1 JPITC(J) = 8 

ic 

РЕ СЕН PLAYER PETS 

3 CALL GENPIT СІРІТР) 

AG 

5 Г GEN СОМЗИТЕР PITS 

> 


MMMM RAR AR А. 
GI ا © دح‎ 00 


а! 
53 С 

ба С WRITE OUT INITIAL ARRAYS 
55 2 CALL PRIPIT СЈРІТР, JPITC) 
56 С 

57 С PLAYER MOVES FIRST 

58 16 IFLAG = 1 

59 ITHO = 8 


68 4 CALL PLAYP 


or 


со ез (ез یہ یہ رہ یہ‎ - 
Г ts: І г. С^. 
об 


tJ 


an ос 


one 
с U € 


و سو مسر سو مر امم a‏ 
н eee eee‏ № 
سر جح ری O UO 00 мил‏ 


CHECK FOR CAPTURE 
CALL CAPTURE CL. JPITP. JPITE)I 
CALL PRTPIT СЈРТТР, ЈРІТС) 


CHECK IF GAME OVER 
[SUM = ISOVERCD 
IF CISUM .Е@. 0) GO TO 3 


CHECK FOR EXTRA MOVE 
IFLAG = MORECL) 
IF CIFLAG .Е0. 2) GO TO 4 


COMPUTER MOVES NEXT 


[FLAG = 3 
[TUD = O 
CALL PLAYC 


CHECK FOR CAPTURE 
CALL CAPTURE Сз, ЈРІТР, ЈРІТС) 
CALL PRTPIT СЈРІТР, ЈРІТС) 


CHECK IF САМЕ OVER 
ISUM = ISOVER CJ) 
IF CISUM .ЕП. 0) 60 TO 3 


CHECK FOR EXTRA MOVE 

IFLAG = MORE (3) 

IF CIFLAG .EQ. 4) GO TO 9 
GO TO 10 


GAME IS OVER 
IF (JPLITP¢?) -JPITC(7)) 5, „6 


GAME IS A TIE 

JARCL) = ІЗНБАМЕ IS A TIE 

JARC2) = JAR(2) UN. 4977774002048 
CALL SYSTEM (1412B,A2,0002B. JAR) 
GO 107 


COMPUTER HAS WON 

JARCL) = 16НСОМРУТЕВ HAS WON 
JAR(3) = ۶۶ 08 

CALL SYSTEM )14128.7 63.7808838, JAR) 
60 7 


PLAYER HAS WON 

JARCL) = 14HPLAYER HAS WON 
JAR(S) = 077774092048 

t CALL SYSTEM )14128.+ 84.788838. JAR) 
LEVEL =LEVEL +1 


PLAY ANOTHER GAME 

JARCLI=34HIF YOU WISH TO PLAY AGAIN TYPE YES 
JARCA = JARCA) „UN. 808 

CALL SYSTEM (1412B.A5,00048., JAR) 


CALL SYSTEM (2000B,A6,0498B. JAR) 
IF )3۵8)1( .EQ@. SRYES) GO TO 8 
CALL QUIT 


121 END 
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SUBROUTINE PRTPIT СЈРІТР, ЈРІТС) 
PRET FITS 


DIMENSION JPLTPC1).JPITCC1).MSGC9) 

DATA (MSG (1) =407777000090000000008) , 

1 (MSG CS) =407РР7В) , (MSG (6) =497777000000B) ء‎ (MSG (8) =407 78) „ 
2 (MSG (9) =774977774002040000006) 

D 


0 Fi J=1.6 
Jt =? = 
J2 =(J+1) жз 


13 =(J-1) 13 

CALL CONVECIPITCCIL).MSGC1),I2.3 
CALL CONVYICIPITPC J).MSGC7),.J3.3) 
CALL CONVICIPITC( 7).MSGC4),. 0,3) 
CALL CONVICIPITPC( 7).MSG(6). 1,3) 
CALL SYSTEMCL412B.F2,00115.MSG) 
WRITE (59.10) CIPITC(I).J=6. 14-1) 
WRITE (59,20) JPITC(7).JPITP(7) 
WRITE (59,10), СЈРТТРСЈ), Ј=1,6) 
FORMAT (3.613) 

FORMAT (13, 18%, 13) 

RETURN 

END 
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FUNCTION MORE (М) 
XTRA MOVE 


USE PIT 

MORE = N 

[SUM =LIMP +MOVP ~1 

IF (N .EQ. 3) ISUM =LIMC +MOWC =1 
IF CISUM „Ед. 7) GO TO 1 

IF CISUM «Ed. 21) GO TO 1 

IF CISUM .Е@. 35) GO TO 1 

RETURN 

IF (ТТЫ) .Е0. 1) GO TO 2 

MORE =MORE +1 

[TWO = 1 
RETURN 
[TWO = 8 
RETURN 
IFLAG =0 

IFLAG =1 PLAYER-1 
[FLAG =2 

IFLAG =3 СОМРОТЕВ-1 
[FLAG =4 COMPUTER-2 
END 
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SUBROUTINE CAPTURE (Na JPITP.JPITO) 
CAPTURE BEANS 


DIMENSION JPITP )5( , ЈРІТСС9) 
[SUM =IPITPCH +ЈРТТРСВ) ~1 


IF (N ЈЕО. 5) ISUM =JPITC(9) +JPITC(8) -1 


ICAP = МОРЕ CISUM. 7) 

IF CICAP „Ед. 0) RETURN 
ICAP = AMODF CISUM. 14) 

IF (N „ER. 3) GO TO 1 


PLAYER*S MOVE 
IF CICAP .GT. 2) GO TO 2 


PLAYER TO PLAYER SIDE 

[SUM =JPITP (ICAP) 

IF CISUM .МЕ. 1) RETURN 

IF CIPITCC?-ICAP) .EQ. 8) RETURN 


О.К. TO CAPTURE 

JPITP CP) =ЈРІТР С?) +JPITOC?-ICAP) +1 
JPITPCICAP) =JPITCC?-ICAP) =0 
RETURN 


PLAYER TO COMPUTER SIDE 

ICAP =[CAP -7 

[SUM =JPITCCICAP) 

IF CISUM .NE. 1) RETURN 

IF CJPITPC?-ICAP) .E@. 0) RETURN 


D.K. TO CAPTURE 

JPITPC?) -ӘРІТР(?) +JPITPC?-ICAP) +1 
JPITCCICAP) =JPITPC?-ICAP) =0 
RETURN 


СОМРУТЕВ” 5 MOVE 
IF СІСЕР „67. 9 GO TU 3 


COMPUTER TO COMPUTER SIDE 

[SUM =JPITCCICAP) 

IF CISUM .NE. 1) RETURN 

IF CJPITPC?-ICAP) .EQ. 8) RETURN 


0.5. TO CAPTURE 

JPITC(7) =JPITCC?) +JPITPC?-ICAP) +1 
ІРІТССІСЕР) «ӘРІТР(?-ІСАР) =0 

RETURN 


COMPUTER ТО PLAYER SIDE 

ICAP =ТСАВ -7 

[SUM =JPITPCICAP) 

IF CISUM „НЕ. 1) RETURN 

IF CJPITCC?-ICAP) .Е@. 0) RETURN 


D.K. TO CAPTURE 

JPITEC?) =JPITC(7) +JPITC(7-ICAP) +1 
JPITPCICAP) =JPITCC?-ICAP) =0 

RETURN 

END 
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SUBROUTINE DUMB 
HELP PACKAGE 


DIMENSION MHC39). МІ(25) 

DATA (HC 1)=30H C6 C5 C4 C3 C2 Clase CH 3} 
DATACMHC 4) =3GH PHa+e Pl Ра) 
DATACHHE 7)=30H РЗ Ра PS P6@¢<THE GAME BOARD ) 
DATA (MH C10)=30HHAS 6 PITS AND A HOME PIT FOR ) 
DATA сми (13) =SGHTHE COMPUTER(C) ANDE++THE SAME) 
DATA (1H (16) =30Н FOR THE PLAYER(P).a¢¢A MOVE 1) 
DATA (HA (19) =390HS MADE BY TAKING ALL THE BEANS) 
DATA (МН (22) =30H FROM ANY PIT ON YOUR SIDE@+<A) 
DATA CMH (25) =30HND PLACING THEM. ONE IN EACH P) 
DATACMHC28) =30H1T, IN A COUNTER-CLOCKUISEB+<D) 
DATA CMH (31) =SOHTRECTION.@¢<IF THE LAST BEAN 5) 
DATA CMH (34) =SGHOWN IS ІМ YOUR НОМЕ, YOU MAY Т) 
DATA CMH (37) =SGHAKE AN EXTRA МПОУЕ.0660"5 ) 


DATACMEC L3=SGHIF THE LAST BEAN SOWN. IS ІМ A) 
DATACMIC 4) =30НМҮ EMPTY PIT. AND THE OPPOSITE) 
DATACMIC 7)=30H PITee+IS NOT EMPTY. ALL THE B) 
DATACMICLG)=SGHEANS IN THE OPPOSITE PIT AND Т) 
DATA CMI C13) =ЗВННЕ LAST BEAN@+<¢SOWN ARE CAPTUR) 
DATACMICLG)=3GHED AND PLACED IN YOUR HOME.a¢¢) 
DATA (MI C19)=39HUHNEN EITHER SIDE HAS MORE THAN) 
DATACMIC22)=30H 21 BEANS IN HIS HOME. НЕ HAS ) 
DATA CMI (25) =LGHWONGs<ea"sS ) 


CALL бҮ5ТЕМСІ2128,01,0047В,М4) 
CALL _SYSTEMC1412B,A2,0931B.MD 
WRITE (59,10) (MH(J),J=1.39) 
WRITE (59,10) (MICJ).J=1.25) 
FORMAT (7810) 

RETURN 

END 
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SUBROUTINE SEW (N. Г. ТМ. ITOT) 
SEU BEANS 


DIMENSION NC?) 

JL =l LIR =1 =ITOT 

IE (Jl „Er. Т) Ле? 

DO 1 J=[.Jl 

NCJ) = NCJ) +1 

ITOT =ITOT +31 ~I +1 

IF CLIM EU. ITOT) ITOT ۵8 
RETURN 

END 


Е 


FUNCTION ISOVER CN) 
LS GAME OVER 


USE PIT 

ISOVER = 0 

DD 1 J=1,6 

ISOWER = ISOVER +JPITP CJ) 

IF CISOVER .Е0. 0) RETURN 
ISOVER = 0 

DO 2 J=1,6 

ISOVER = ISOVER +JPITECH 

IF CJPITPC?) .GT. 21) ISOVER =0 
IF CJPITEC?) .GT. 21) ISOVER =0 
RETURN 

END 
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SUBROUTINE PLAYC 
COMPUTER MOVES 
USE PIT 


GET NEXT COMPUTER MOVE 

CALL THINK 

JARCL) = LBHCOMPUTER*S MOVE IS 
CALL CONVI (MOVC. JAR(2).8.2) 
ЈАС) 87770 808 
CALL SYSTEM C(1412B.A1.0003B. JAR) 
LINC = JIPLTCCMOVC) 

ЈРІТССМОМС) = 0 


МОМС = MOVE +1 
MOVS = MOVC 
ISUM = 8 


SEW BEANS FROM COMPUTER SIDE 
CALL SEW CJPITC.MOVS.LIMC. [SUM 
IF CISUM .EQ. 0) RETURN 


SEW BEANS FROM PLAYER SIDE 
CALL SEW CIPITP.1.+LIMC. ISUM 
IF CISUM .Е@. б) RETURN 
MOWS = 1 

GO TO 1 

END 
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SUBROUTINE THINK 

COMPUTER THINKS 

USE PIT 

DIMENSION ТУМА! (6). ns ІРІТС (9) „ [VALL(6).KPITP(9).KPITC(9) 
IF (LEVEL .GT. 1) GO TO 

CE WEL = 1 

COMPUTER SELECTS A RANDOM PIT 


MOVC = IPR(6) 
IF CJPITCCMOVC) .EQ. 0) GO TO 1 


RETURN 

LEVEL =] 2 

COMPUTER EVALUATES 1ST HALF OF 1 MOVE AHEAD 
DO 3 J=1,6 

DO 6 21=1.7 


ІРІТРС2І) =JPITPCID 
IPITECID =JPITECID 


IF PIT SELECTED HAS NO BEANS 

IF СІРІТССЈ) „ЕВ. 8) „5 

ТУА (Л) =-2 

GO TO 3 

CALL LOKAHEDCIPITP. ТРТТС, IWAL. J) 
IF (C?-J) „Ей. ЈРТТЕСЈ)) „3 


COMPUTER EVALUATES 2ND HALF OF 1 MOVE AHEAD 
DO 4 Ji=1.6 

DO 9 Јг=1,7 

KPITPCI2I =IPITP (J2) 

КРІТССЈ2) =IPITC(J2) 


IF PIT SELECTED HAS NO BEANS 

IF (KPITECIL) „ЕЙ, 8) 8ھ‎ 
IVALICN =-2 

GO TO 4 

CALL LOKAKEDCKPITP.KPITC, IVALL» J1) 
CALL PRIPIT CKPITP.KPITC) 


+ CONTINUE 


МАХ =[YALLCL) 
DO 11 Ј1=2,6 
IF CIWALICIL) „ЕТ. MAX) MAxX=IWAL1CJ1) 
CONTINUE 
EVAL CIJ) =MAX +1 
IF CITUD .EQ. 1) IWALCJ) =L 
CONTINUE 
MOVE =6 
DO 7 4=5,1,.-1 У 
IF CIVALCIHI „GT. IVALCMOYC)) MOVE=J 5 
CONTINUE 
AS CIBUG „EQ. 0) RETURN 
0 8 1-1,6 
ІР, TPCJ) =LVALLCI) 
(J) =IVALCH 
ӘТРІТСІРІТР, ІРІТС) 
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SUBROUTINE LOKAHED CIPITP, IPITC.IVAL, J) 


LOOK AHEAD 


DIMENSION IWAL (6), ІРІТРС9) , ІРІТС (9) 
ІРІТС СӘ) =J 

WOW == ІРІТС СИ) +IPITP (7) 

ІРІТС(9) = ІРІТЕСІРІТССӘ)) 
IPITCCIPITC(8)) = 0 

IPITCCE) = IPITC(8) +1 

МПУ5 = IPITC(8) 

ISUM = 8 


SEW BEANS FROM COMPUTER SIDE 
CALL SEW СТРЕС, МОМ5, ІРІТС(9), ISUM) 
IF CISUM .EG. б) GO TO 2 


SEW BEANS FROM PLAYER SIDE 

CALL SEW СІРІТР, 1, ІРІТСС9), [SUM 
iF (150М .Е@. 0) GO TO 2 

МОУ = 1 

GO TO 1 

CALL CAPTURE сз, IPITP, IPITC) 
[VALCI) =NOW +IPITC(7) -ІРІТРС?) 
RETURN 

END 
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SUBROUTINE PLAYP 
Pi 8)8 ER MUYES 


USE PIT 

JARCL) = SHYOUR MOVE 

JARC2) = 8ءء‎ 
CALL SYSTEM (1412B,A1.0002B. JAR) 


CALL SYSTEM (20008.02,04908, JAR) 
IF CJARCL) .LT. IRI) GO TO 1 
IF CJARCL) .GT. 166) GO TO 1 


PLAYER HAS MADE A VALID MOVE 
CALL BCDINT CJARCL).MOVP. 1.9) 
LIMP = ЈРІТРСМОУР) 

IF (LIMP „EQ. 0) GO TO 2 
JPTTPCMOVP) = 0 

МОУР = MOVP + 1 

٥0۷58 = MOVP 

ISUM = 0 


SEL BEANS FROM PLAYER SIDE 
CALL SEW CJPITP.MOVS.LIMP. ISUM) 
IF CISUM .ЕП. 0) RETURN 


SEL BEANS FROM COMPUTER SIDE 
CALL SEW СЈРІТС, 1, 1МР. ISUM) 
IF CISUM .Е@. O) RETURN 
MOVS = 1 

GO TO 3 


CHECK DICTIONARY 


IF (JARCL) .EQ. SREND) CALL QUIT 


IF (JARCL) .ЕП. SRLEVEL) GO TO 5 
IF (JARCL) .ЕП. 4RHELP) GO TO 6 
IF (JARCL) .ЕП. 4RIBUG) GO 7۶٣ 


Јар) = 21HINPUT ERROR TRY AGAIN 


JAR(S) = JARC3) „UN, 40777740020400B 


CALL SYSTEM (1412B,93,0003B. JAR) 
GO то 4 


PIT SELECTED HAS @ BEANS 


ВСР = 29HTHE PIT SELECTED HAS NO BEANS 


JARCH = 4)0 8 
CALL SYSTEM (1412B.A4,0004B. JAR) 
ED TO 4 


INCREMENT LEVEL FACTOR 
CALL ВСрІМТСЈАВ (2) LEVEL, 1,9) 
сп TO 4 


HELP PACKAGE 
CALL DUNS 
GO TO 4 


SET DEBUG OPTION 
CALL BCDINTCJAR (2), 1806, 1.9) 
со TO 4 


470 


END 


471 SUBROUTINE GENPIT (N) 
472 С 


473 С BENERRTE PITS 
ara С 

475 DIMENSION NCG) 

476 1 DO 2 Ј=1.6 

are 2 NCJ) = IPR(6) 

478 DO 3 J=1.5 

479 DO 5 K=J+1.6 

480 IF (NCJ) .Е@. МОЈ GO TO 1 
481 3 CONTINUE 

462 RETURN 


483 END 
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FUNCTION IPR (J) 
р PEEK Бал» 


= RNFL(B)  1.E+6 
IPR = xMODFCIPR, J) 


